RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR FR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 

RRR = RRR 

RRR = RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 


a a a a a a a a a a tt a st st st st tt 
St st st St St Ht 
Att ta 4 tt SH St HH Ht tt 


PPPPPPPPPPPP 
PPPPPPPPPPPP 


PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


PPPPPPPPPPPP 
P P 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
ARR 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
A AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 


DDDDDDDDDDDD 

DDDDDDDDDDDD 

DDDDDDDDDDDD 

DDD DOD 
DDD DOD 
DOD DOD 
DOD DOD 
DDD DDD 
DDD DOD 
DDD DOD 
DDD DDD 
DDD DDD 
DOD DDD 
DDD DOD 
DDD DOD 
DOD DOD 
DDD DDD 
DOD DDD 
DDDDDDDDDDDD 

DDDDDDDDDDDD 


DDDDDDDDDDDD 


E 14 


**FILE**1D**DTE_DFOS 


oe me me 
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contents 


DECLARATIONS 

DTE_DFO3 = DFO3 autodial routine 

WRITE_STR = write string to port channel 

READ_CHAR = read status character from port 
READ_DONE = ast for read completion 
WRITE_STR_TO_USER = write string to command channel 


Cun wnr— 
-—~wewww OO 


F 14 
- Sample SET HOST/DTE dialer module 16-SEP-1984 02:18:23 VAX/VMS Macro v04-00 


<w 


G 14 
DTE_DFO3S - Sampie SET HOST/DTE dial dul 16-SEP-1984 3] AX/VMS M 4- p 
OTF BFS p er module E 2 88! 1}: $3 y ag ro V0 age 


0 
-SEP-1984 RTPAD. SRI DTE “Bros MAR; 1 
E DTE_DFO3 = Sample SET HOST/DTE dialer module 
5 Vbecbooe San? 


gcc inc eh ara hh daa at ncaa ccna ca alain 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


waar HY aia” UNDER A LICENSE AND MAY BE USED AND gd ta 
ACCORDANCE WITH THE TERMS OF SUCH They AND WITH THE 

N OF THE ABOVE Vgitha NOTICE. THIS SOFT WARE OR ANY OTHER 

HEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® * 
® + 
® ® 
® ® 
® ® 
® ® 
& ® 
* ® 
® * 
* TRANSFERRED. * 
® ® 
® © 
*® ® 
® Se 
® ® 
® ® 
® ® 
® ® 
® + 
** te 


G 
0 
N 
ION 


se: 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 


L 
S 


SOOooooooooooooooooooooooo 


LARBRRRAASLASRAAASASALAAASELASELASELE SEL EASES ESE RAR SASSER RRR ESR SRR ERE R ARES SS 


FACILITY: 

SET HOST/DTE 

ABSTRACT: 

Provide modem-specific support for autodialing on a ve ‘--. 

serve as example for other modem types. Activated as rable 
ynege when SET HOST ttcn: /DTE /DIAL=(number:string, mODER. TYPE= DFO3) 
$s run, 

ENVIRONMENT: 


VAX/VMS, user mode. 


DOOSCSOOSOOSOSSOSOSSOSSSSSSOSOSOSOSOSOSOSOSOSOOSOSOSOOOSOSOOOOOOSOOOOOO 
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AUTHOR: Jake VanNoy, CREATION DATE: 11-Apr-1984 
MODIFIED BY: 


.SBTTL DECLARATIONS 
t INCLUDE FILES: 


NAA AN SO OOO NA UE WIN 9 OO NAME WN 9 OD NA E WWI OO OO NAUSEA OO ONOU ES Win 
+ 
+ 
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SOOoOSCOCSCOSOOCSOSCOSOOSOOSCOSOSOOSOOSOOSOOSOSOSOSSoOSO 
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cr 
m 
ow 
~-o 
rs 
zo 
> 
— 
ow 
am 
na 


° 
T 
Ht: ; SSHRDEF ; shared messages 
69 SSTSDEF ; status fields 
68 | 
65 ; MACROS: 
8 64 ; 
8 2 ; 
009 ¢ ; EQUATED SYMBOLS: 
900001 FE 000 & REMS_FACILITY = “X1FE 
1FE111 Q REM$_BADVALU = SHR$_BADVALUE! <REM$_FACILITY@16> 
0000000D 338 71 CR = 13 
Q000000A 000 i LF = 10 
000 7 
000 74 ; 
000 75 ; OWN STORAGE: 
000 6 3 
0000 7 
00000001 0000 78 CTRLB_DESC: LONG 1 i Length 
00000000 B68 - LONG 0 ; will get filled in by code 
00000002 SobE 5} CTRLB_STR: - LONG 2 ;°S te Ss 
00000022" 000C He CONN_DESC: - LONG CONN_STR_LEN 3 Length 
eae e'e4 Bete 84 - LONG 0 ; will get filled in by code 
6E 6F 69 74 63 65 6E 6E 6F 43 OA 3 014 85 CONN_STR: ASCII <CR><LF>/Connection made to remote por c«/<CR><LF> 
6D 65 72 20 6F 74 20 65 64 61 6D 20 0020 
OA OD 74 72 6F 70 20 65 74 6F 002C 
00000022 Oose 6 CONN_STR_LEN = .-CONN_STR 
00000024" 0036 88 FAIL_DESC: LONG FAIL_STR_LEN ; Length ; 
00000000 bose 89 - LONG ; will get filled in by code 
6F 74 20 64 65 6c 69 61 46 OA 43 OSE 90 FAIL_STR: -ASCII <CR><LF>/Failed to connect to remote port/<CR><LF> 
72 20 6F 74 20 74 63 65 6E 6E 6F 63 O04A 
OD 74 72 6F 70 20 65 74 6F 6D 65 0056 
00000024 085 91 FAIL_STR_LEN = .-FAIL_STR 
0000006C 006 38 READ_BUFFER: -BLKB 10 :; read buffer 
00000000 00000000 006C 94 : - LONG 0,0 ; 1/0 status 
00000000 tee 22 READ_STATUS: - LONG 0 ; completion status 
00000000 0078 97 USER_CHAN: - LONG 0 3; command channel own storage 


< ww 
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OiF BFS ore ees tee dialer sotule 16-SEP-1984 t 88: If: $3 ives Macro V04- 


0 
autodial routine -SEP-1984 RTPAD.SRCIDTE “Bros MAR; 1 
-SBTTL DTE_DFO3 = DFO3 autodial routine 


Page (3) 


+ 
+ 


FUNCTIONAL DESCRIPTION: 
Perform the necessary autodial protocol on a DFO3-AC modem. 
CALLING SEQUENCE: 
DIAL_ROUTINE (number_desc, port _chan, command_chan) 
INPUT PARAMETERS: 
4(AP) = ——— of = specified in NUMBER:string 
B(AP) = channel number of port DF FO3 is connected to 
12(AP) = channel number of user's terminal 


IMPLICIT INPUTS: 
NONE 


SSNNNN 


DWOAWWWAUWAIWIE OP DWWIWWNI SMA AOA OAOAAAAAADBAAAAHAAAAAAAAAAOAOHAOOAAOHOOOOMKHAOo 


BDOOCGOCOOCoCoConN Ot 


DWONOULS WOO 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
RO - status 

SIDE EFFECTS: 
NONE 


a ee a ed ed ed = = 3 8 8 wd = 2 2 8 2 2 2 2 as ss 8 2 2 2 a 3 a 


PVPS Ee Be BS EB BBE BE AINA III PPONONYNINPNINIDY 2 OO OO Oo 


MEW OODNA UE WW 9 ODNAUE WIN — O OONOUS WO OONOUSWWNO 


00000004 number = 4 
00000008 port_chan = 8 
0000000C command_chan = 12 
- TRANSFER DIAL_ROUTINE 
~" MASK DIAL- ROUTINE 
0002" 31 BRW DIAL_ROUTINE#2 
001C ENTRY DIAL_ROUTINE, “M<R2,R3,R4> 
FO AF OC AC 3C MOVZWL command_chan(AP) ,user_chan ; gave for late 
52 04 AC ge MOVL number (AP), : fetch address “et descriptor 
53 6 C MOVZWL R ; length of string 
54-04 A200 MOVL  4(R25,R4 : address 
; Loop through string to check for illegal characters 
10$: . 
64 3D 91 CMPB #*A/=/,(R4) ; ““s"* is pause character 
ga 13 BEQL 208 : branch if match 
64 0 91 CMPB #*A/0/,(R4) : check for ae ad 


ae 


14 
DTE_DFO3 = Sam SET HOST/DTE dialer sotula 16-SEP-1984 02:18: AX/VMS Macro V04-00 Page 4 
yOu=o00 pre Dros - bros autodial routine -SEP-1984 0g: 18:88 YRTPAD SRe DYE’ DFOS MAR: 1 ° (2) 
§ 1A 9B 1 § BGTRU 30% ; Branch if less than legal 
64 91 9D 61 CMPB #*°A/9/,(R4) 3 check for number 
7 #1F pA 1 8 BLSSU 30$ ; Branch if more than legal 
4 D6 A 159 20$: INCL RG : next character 
i ae AS 160 SOBGTR R3,10$ ; legal character, loop 
iA 1 a 16 BRB 40$ ; continue, number ok 
pay 188 : error in number string 
04 AC DD OOA9 165 30$:  PUSHL number (AP) ; signal error 
01 DD OOAC 196 PUSHL #1 ; number of FAO args 
0O1FE1110 8F DD Boat 16 PUSHL #REM$_BADVALUE 3; error type 
00000000 ' GF 3 «FB B 168 CALLS #3,G*CIBSSIGNAL * error 
50 11FE1110 8F DO 00B 199 MOVL § #REMS_BADVALUE!STSSM_INHIB_MSG,RO ; return status 
04 O00C 170 RET 3 return 
gee aoe 
00C 158 ; number string ok, continue. 
Bae \r ; queue read for character 
0048 30 OOC3 176 BSBW READ_CHAR 3 read status character 
27 50 «ED Boce ioe BLBC RO, 100$ : exit on error 
b0¢9 179 : Write string to modem 
FF34 CF FF3B CF 9€ 00C9 181 MOVAB CTRLB_STR,CTRLB_DESC+4 3; set address 
52 FF2C CF 9E 00D0 136 MOVAB CTRLB_DESC,R2 ; “B initiates dial 
0019 30 0005 18 BSBW WRITE STR ; write string 
15 50 €9 pope He BLBC RO, 100$ 3 exit on error 
04 AC 0 QODB 186 MOVL number (AP) ,R2 3; fetch address of descriptor 
OOOF 0 OODF 187 BSBW WRITE STR ; write number string 
0B 50 =O«ED poes 138 BLBC RO,100$ ; exit on error 
Bpee 139 SHIBER_S ; wait for read to complete 
50 85 AF DO OOEC 136 MOVL READ_STATUS,RO 3; set status 
OOFO 193 100$: 
04 OOFO 194 RET 
OOF1 195 


DIF Fos - Senple e SET HOST/DTE dialer te 1 ~$50=1 388 oe: 18: 33 pares eg ro V04- 


og? Page 3 
RTPAD SRCS DTE_DFOS.MAR; 1 (3) 


WRITE_STR = write string to port channel 5-SEP-1 
Fi 197 .SBTTL WRITE_STR = write string to port channel 
1 oe 
Fi 0 : FUNCTIONAL DESCRIPTION: 
2 ¢ : write a string to the DTE port 
oH 4 > CALLING SEQUENCE: 
Ori : : BSBW  - WRITE_STR 
OF 8 ; INPUT PARAMETERS: 
OF! 10 : R2 - address of descriptor to write 
OF} 1 : COMPLETION CODES: 
OF1 14: RO = status 
OF1 15 ; 
Br Hie 
OOF! 218 WRITE_STR: 
ia 8 $Q10W_S 
OOF 1 1 CHAN = port_chan(AP),- ; channel 
OOF 1 g FUNC = #10$_WRITEVBLK!IOSM_NOFORMAT,- ; write no format 
OOF 1 Pi = a4(R2),- : address 
OOF 1 24 P2 == (R2) ; length 
05 0110 225 RSB 


DTE_DFOS - iy le SET HOST/DTE dialer ale” 16-SEP-1984 2 86: 18: $3 mye Macro V04- 58° Page 6 
v04 READ_CHAR = read status character from p 5-SEP-1984 RTPAD.SRCJDTE_DFO35.MAR; 1 (4) 
1] gis  SBTTL READ_CHAR ~ read status character from port 
111 ° 
My ? 3; FUNCTIONAL DESCRIPTION: 
111 § $ Read the status character from the DF03, allowing a maximum 
i Z s of 60 seconds for the event to occur. 
4) 5 ; CALLING SEQUENCE: 
1 5 : BSBW READ_CHAR 
111 § 3; INPUT PARAMETERS: 
0111 40 ; NONE 
0111 41 ; 
0111 tg ; COMPLETION CODES: 
0111 43; 
0111 44; RO - status 
0111 45 ; 
0111 46 ;-- 
0111 47 
0111 248 READ_CHAR: 
0111 49 
0111 50 $Q10_S - 
0111 39251 CHAN = port_chan(A ds ;_channel 
0111 $26 FUNC = #10$~ ~READVBLK! IOSM_TIMED! 10$M -PURGE , ~ 
0111 = 25 - : read timed, purge 
0111 254 IOSB = I0SB,- ; 1/0 status 
0111 255 ASTADR = READ_DONE,- 3 ast routine 
0111 256 P1 = READ_BOFFER,- ; address 
0111 257 P2 = #1,- ; a hl 
0111 258 PS = #66 : timeou 
05 0138 259 RSB 3 exit tO status 
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WWIII PONOPINONPONO NPN NoNoNoNny 


10$: 


M14 
le SET HOST/DTE dialer module ot tt 
ONE = ast for read completion - 


FUNCTIONAL DESCRIPTION: 


SEP=19 


Be 88:18:63 


SBTTL READ_DONE = ast for read completion 


AX/VMS Macro i th Page 
RTPAD.SRCJDTE_DFO3.MAR; 1 ( 


Check for timeout or status character 


CALLING SEQUENCE: 

CALLed as AST routine 
INPUT PARAMETERS: 

NONE 


COMPLETION CODES: 

RO - status 
.ENTRY READ_DONE,“M<R2> 
MOVZWL 10SB,R0 
BLBC RO, 100$ 
MOVZBL READ_BUFFER,R2 
CMPBs #*A/K/,R2 
BNEQ 10$ 
MOVAB conn_desc ,R2 
MOVAB conn “str, 4(R2) 
BSBW = WRITE_STR_TO_USER 
BLBC ~—_ RO 
MOVL § #SS$_NORMAL,RO 
BRB 100$ 
MOVAB fail_desc,R2 
MOVAB fail ~str,4(R2) 
BSBW WRITE STR TO USER 
MOVZWL #SS$_RANGOP,RO 

100$: MOVL — RO,READ_STATUS 
SWAKE_S 
RET 


et status of read 
ranch if timeout 


fetch data 
status ok? 
branch if not 
set up string 
set up string 
tell user, ready 
exit on error 
ready 

exit 


set up string 
set up string 
tell user, ready 
status 


save status 
wake main stream 


ed a a a a a a a a a 
@W W \} 000000000009 09 09 00 00 09 09 00 00 0D 09 09 00 09 00 C9 CD OD 0D CD CD00 0D 
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TO_USER = wr fale, rogue comm 'S-SEP-198¢ 08:15:08 EAtPaDssneSpre-DrOscman:1 "2° (8) 


a: - SBTTL WRITE_STR_TO_USER = write string to command channel 


Oooo 


ote) 


FUNCTIONAL DESCRIPTION: 


10 ; 

i} 3 write a string to the user terminal channel 
18 : CALLING SEQUENCE: 

13 ; BSBW WRITE_STR_TO_USER 

7 > INPUT PARAMETERS: 

19 : R2 - address of descriptor to write 

1 ; COMPLETION CODES: 

5 : RO = status 

¢ 3 

; WRITE_STR_TO_USER: 
$3 $Q10W_S - 

0 CHAN = user_chan 3: channel 
31 FUNC = #10$7WRITEVBLK,- : write 
35 P1 = a4(R2),- 3 address 
3 P2 = (R2) 3 length 
$e RSB 
36 END 


DTE_DFO3 
Symbol table 


$$T1 
COMMAND CHAN 


cf 
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- Sample SET HOST/DTE dialer nobus 


AX/VMS ies ro V04- 
RTPAD. sRCd DTE_DFOS. 


p=1984 08:15:05. | 


ae DESC 4 

CONN_STR 1 

CONN. _STR_LEN = 00 9 4 

ETRLB DESC p g R 01 

CTRLB-STR R 01 

DIAL_ROUTINE 0 1 RG 01 

FAIL_DESC $ $ 6 R 01 

FAIL_STR OSE R 01 

PALL ore LEN = 00000024 

1O$M_NOF ORMAT teeneeee XX 01 

1O$M_PURGE aeaeeene =X (1 

10$M_ TIMED eeeeeeee =X (1 

10$_READVBLK teeeeeee =X 01 

10$_WRITEVBLK eeteeene =X 0] 

10S6 Q000006C R 01 

LF = 0000000A 

LIBSSIGNAL teeeteee KX 01 

NUMBER = 00000004 

PORT_CHAN = 00000008 

READ_BUFFER 06000062 01 

READ_CHAR 00000111 01 

READ_DONE 0000013C RG 01 

READ_STATUS 00000074 R 01 

REM$_BADVALU = 01FE1110 

REMS_FACILITY = QOOOOIFE 

SHR$_BADVALUE = 00001110 

SS$_RANGUP eeeeeeee XX 01 

SS$_NORMAL teeaenee =X (1 

STSSM_INHIB_MSG = 10000000 

SYSSHTBER eeeeeeee GX 01 

SYS$Q10 teeeeeee GX 01 

SYS$Q10W teeeneee GX 01 

SYSSWAKE eeeeeeee GX 01 

USER _ 00000078 R 01 

WRITE_STR OOOO00F1 R 01 

WRITE “SiR. TO_USER 0000018F R 01 

Pee eres sere seeoces + 
' Psect synopsis H 

PSECT name Allocation PSECT No. Attributes 
ABS 00000000 < 0.) 00 ¢ QO.) NOPIC USR CON ABS LCL ot the NOEXE NORD wows wovee BYTE 

. BLANK 000001B0 (¢ 432.) 01 ¢ 1.) NOPIC USR CON REL LCL NOSHR EXE RD OVEC BYTE 
$$ 00000000 <( 0.) 02 -) NOPIC USR CON LCL NOSHR EXi: RD URT NOVEC BYTE 
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11 Macro Run Statistics 


: Performance indicators ! 


eee enaewr neces ase emma cea + 

Phase Page faults CPU Time Elapsed Time 
Initialization 39 00:00: 8.96 00:00:00.58 
Command processing 1 00:00:00. 8208 98 82 
Pass 166 88 BR: 4°79 0:00:10.35 
pyaso) table sort 6g 00:0 : 8-1 0:00:08:19 
as H : ° : : e 
Symbol table output 6 0:00; 8°08 0: 0:00:03 
Psect synopsis output 1 00:00:00.02 0:00:00.01 
Cross-reference output 0 BF OO Loe BF OB 88 
Assembler run totals 396 00:00:03.1 00:00:18.70 


The working set Limit was 1200 pages. 

14239 bytes (28 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 178 non-local and 7 local symbols. 
336 source Lines were read in Pass 1, producing 18 object records in Pass 2. 

16 pages of virtual memory were used to define 15 macros. 
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H Macro Library statistics H 


Macro Library name Macros defined 


“BSS gEDUACS : ER TPAD. OBJ 2RTPAD ALB: 1 
-$255$DUA28: (SYS .OBJ -MLB; 

$255$DUA28: CSYSLIBISTARLET.MLB;2 1 
TOTALS (all libraries) 1 
277 GETS were required to define 12 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:DTE_DF0O3/0BJ=OBJ$:DTE_DFO3 MSRC$:DTE_DFO3/UPDATE=(ENH$:DTE_DFO3) +EXECML$/LIB+LIB$:RTPAD/LIB 


R' 
vi 


TAL EQUIPMENT CORPORAT 
IDENTIAL AND PROPRIETA 
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